Public Class PassShow_Hide

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        If TextBox1.UseSystemPasswordChar = True Then

            TextBox1.UseSystemPasswordChar = False
            Button1.Text = "Hide"

        Else

            TextBox1.UseSystemPasswordChar = True
            Button1.Text = "Show"

        End If

    End Sub

' Form Load
    Private Sub PassShow_Hide_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        TextBox1.UseSystemPasswordChar = True


    End Sub
End Class